home *** CD-ROM | disk | FTP | other *** search
/ Instant Bartender / Instant Bartender.iso / BAR.MME < prev    next >
Text File  |  1995-04-10  |  9KB  |  538 lines
  1. //bar.mme   
  2.  
  3.     declare red, green, blue, white, black, yellow, darkb
  4.     declare xclick, yclick, hh, xp, yp, lightb, darkb2, lightb2
  5.     declare x, y, w, i, h, ys, xs, xh, xr, yhr, ix, iy, rand
  6.  
  7.     black = rgb(0,0,0)
  8.     white = rgb(255,255,255)
  9.     red   = rgb(255,0,0)
  10.     green = rgb(0,255,0)
  11.     blue  = rgb(0,0,255)
  12.     yellow = rgb(255,255,0)
  13.     lightb = rgb(181,159,148)
  14.     lightb2 = rgb(170,130,130)
  15.     darkb = rgb(66,24,33)
  16.     darkb2 = rgb(93,51,41)
  17.     
  18.     create_button but1
  19.     create_button but2
  20.     create_button but3
  21.     create_button but4
  22.     create_button but5
  23.     create_button but6
  24.     create_button but7
  25.     create_button but8
  26.     create_button but9
  27.     create_button but10
  28.     create_button but11
  29.     create_button but12
  30.     create_button but13
  31.     create_button but14
  32.     create_button but15
  33.     create_button but16
  34.     create_button but17
  35.     create_button but18
  36.     create_button but19
  37.     create_button but20
  38.     create_button but21
  39.     create_button but22
  40.     create_button but23
  41.     create_button but24
  42.     create_button but25
  43.     create_button but26
  44.     create_picture pic1
  45.  
  46.     play_midi "bar3.mid"
  47.  
  48.     screen.tile = 0
  49.     set_palette "openbar.bmp"
  50.     screen.name = "openbar.bmp"
  51.     delay 5000
  52.  
  53. main:
  54.     call clear      
  55.     screen.tile = 0
  56.     screen.backcolor = black
  57.     set_palette "pdabar.bmp"
  58.     screen.name = "pdabar.bmp"
  59.         
  60.     x = 85
  61.     y = 325
  62.     ix = 116
  63.     but1.left = x
  64.     but1.top = y
  65.     but1.autosize = 2
  66.     but1.name = "mixers.bmp"
  67.     but1.visible = 1
  68.     
  69.     x = x + ix + 1
  70.     but2.left = x
  71.     but2.top = y
  72.     but2.autosize = 2
  73.     but2.name = "basics.bmp"
  74.     but2.visible = 1
  75.  
  76.     x = x + ix - 3
  77.     but3.left = x
  78.     but3.top = y
  79.     but3.autosize = 2
  80.     but3.name = "recipes.bmp"
  81.     but3.visible = 1
  82.     
  83.     x = x + ix 
  84.     but4.left = x
  85.     but4.top = y
  86.     but4.autosize = 2
  87.     but4.name = "stocking.bmp"
  88.     but4.visible = 1
  89.     
  90.     but5.left = 560
  91.     but5.top = 445
  92.     but5.autosize = 2
  93.     but5.name = "exit.bmp"
  94.     but5.visible = 1
  95.  
  96. loop1:
  97.     if but1.pressed = 1
  98.     goto equip
  99.     endif
  100.  
  101.     if but2.pressed = 1
  102.     goto measure
  103.     endif
  104.  
  105.     if but3.pressed = 1
  106.     goto index
  107.     endif
  108.  
  109.     if but4.pressed = 1
  110.     goto stock
  111.     endif
  112.  
  113.     if but5.pressed = 1
  114.     goto done
  115.     endif
  116.  
  117.     if midi.done = 1
  118.         play_midi "bar3.mid"
  119.     endif
  120.  
  121.     goto loop1
  122.  
  123. equip:
  124.     call clear
  125.     screen.tile = 0
  126.     screen.backcolor = black
  127.  
  128.     play_midi "bar1.mid"
  129.  
  130.     set_palette "bigbrick.bmp"
  131.     screen.name = "bigbrick.bmp"
  132.  
  133.     screen.tile = 2
  134.     screen.top = 50
  135.     screen.left = 75
  136.     screen.name = "sourmix.bmp"
  137.     screen.left = 373
  138.     screen.name = "sweesour.bmp"
  139.     screen.top = 260
  140.     screen.left = 75
  141.     screen.name = "tcollins.bmp"
  142.     screen.left = 373
  143.     screen.name = "syrup.bmp"
  144.  
  145.     but22.left = 275
  146.     but22.top = 435
  147.     but22.autosize = 2
  148.     but22.name = "mxreturn.bmp"
  149.     but22.visible = 1
  150.     
  151. equip1:
  152.     if but22.pressed = 1
  153.     goto main
  154.     endif
  155.  
  156.     if midi.done = 1
  157.         play_midi "bar1.mid"
  158.     endif
  159.  
  160.     goto equip1
  161.  
  162. stock:
  163.     call clear
  164.     screen.backcolor = black
  165.  
  166.     play_midi "bar2.mid"
  167.  
  168.     set_palette "stockbar.bmp"
  169.     screen.tile = 0
  170.     screen.name = "stockbar.bmp"
  171.     
  172.     but22.left = 537
  173.     but22.top = 7
  174.     but22.autosize = 2
  175.     but22.name = "sreturn.bmp"
  176.     but22.visible = 1
  177.     
  178. stock1:
  179.     if but22.pressed = 1
  180.     goto main
  181.     endif
  182.  
  183.     if midi.done = 1
  184.         play_midi "bar2.mid"
  185.     endif
  186.  
  187.     goto stock1
  188.  
  189. index:
  190.     call clear
  191.     screen.tile = 2
  192.  
  193.     play_midi "bar4.mid"
  194.  
  195.     screen.backcolor = black
  196.     set_palette "drink1.bmp"
  197.     screen.backcolor = lightb
  198.     ys = 321
  199.     screen.top = ys
  200.     screen.left = 0
  201.     screen.name = "brick.bmp"
  202.  
  203. //display beverage 
  204.     hypertext.width = 310
  205.     hypertext.height = 290
  206.     hypertext.top = 30
  207.     hypertext.left = 25
  208.     hypertext.margin = 10
  209.     hypertext.textcolor = darkb
  210.     hypertext.backcolor = lightb
  211.     hypertext.titlecolor = red
  212.     hypertext.highcolor = darkb
  213.     hypertext.bold = 0
  214.     hypertext.bodysize = 10
  215.     hypertext.titlesize = 12
  216.     hypertext.showtitle = 1
  217.     hypertext.wordjump = 0
  218.     hypertext.border = 0
  219.     hypertext.tab = 50
  220.     hypertext.name = "recipes"
  221.     hypertext.visible = 1
  222.  
  223. //display brick buttons
  224.     y = ys + 45
  225.     x = 25
  226.     but11.left = x
  227.     but11.top = y
  228.     but11.autosize = 2
  229.     but11.name = "next.bmp"
  230.     but11.visible = 1
  231.  
  232.     y = y + 50
  233.     but12.left = x
  234.     but12.top = y
  235.     but12.autosize = 2
  236.     but12.name = "previous.bmp"
  237.     but12.visible = 1
  238.  
  239.     y = ys + 45
  240.     x = x + 135
  241.     but14.left = x
  242.     but14.top = y
  243.     but14.autosize = 2
  244.     but14.name = "category.bmp"
  245.     but14.visible = 1
  246.  
  247.     y = y + 50
  248.     but13.left = x + 45
  249.     but13.top = y
  250.     but13.autosize = 2
  251.     but13.name = "name.bmp"
  252.     but13.visible = 1
  253.  
  254.     y = ys + 45
  255.     x = x + 100
  256.     but15.left = x
  257.     but15.top = y
  258.     but15.autosize = 2
  259.     but15.name = "ingred.bmp"
  260.     but15.visible = 1
  261.  
  262.     y = ys + 45
  263.     x = x + 135
  264.     xs = x
  265.     i = 35
  266.     but18.left = x
  267.     but18.top = y
  268.     but18.autosize = 2
  269.     but18.name = "quan1.bmp"
  270.     but18.visible = 1
  271.  
  272.     x = x + i
  273.     but19.left = x
  274.     but19.top = y
  275.     but19.autosize = 2
  276.     but19.name = "quan2.bmp"
  277.     but19.visible = 1
  278.  
  279.     x = x + i
  280.     but20.left = x
  281.     but20.top = y
  282.     but20.autosize = 2
  283.     but20.name = "quan3.bmp"
  284.     but20.visible = 1
  285.  
  286.     x = xs
  287.     y = y + i
  288.     but21.left = x
  289.     but21.top = y
  290.     but21.autosize = 2
  291.     but21.name = "quan4.bmp"
  292.     but21.visible = 1
  293.     
  294.     x = x + i
  295.     but22.left = x
  296.     but22.top = y
  297.     but22.autosize = 2
  298.     but22.name = "quan5.bmp"
  299.     but22.visible = 1
  300.  
  301.     x = x + i
  302.     but23.left = x
  303.     but23.top = y
  304.     but23.autosize = 2
  305.     but23.name = "quan6.bmp"
  306.     but23.visible = 1
  307.  
  308.     x = xs
  309.     y = y + i
  310.     but24.left = x
  311.     but24.top = y
  312.     but24.autosize = 2
  313.     but24.name = "quan7.bmp"
  314.     but24.visible = 1
  315.     
  316.     x = x + i
  317.     but25.left = x
  318.     but25.top = y
  319.     but25.autosize = 2
  320.     but25.name = "quan8.bmp"
  321.     but25.visible = 1
  322.  
  323.     x = x + i
  324.     but26.left = x
  325.     but26.top = y
  326.     but26.autosize = 2
  327.     but26.name = "quan9.bmp"
  328.     but26.visible = 1
  329.  
  330.     y = ys + 45
  331.     x = 525
  332.     but16.left = x
  333.     but16.top = y
  334.     but16.autosize = 2
  335.     but16.name = "print.bmp"
  336.     but16.visible = 1
  337.  
  338.     y = y + 50
  339.     but17.left = x
  340.     but17.top = y
  341.     but17.autosize = 2
  342.     but17.name = "return.bmp"
  343.     but17.visible = 1
  344.  
  345. label1:
  346. //next and previous buttons
  347.     call getrand
  348.  
  349.     if midi.done = 1
  350.         play_midi "bar4.mid"
  351.     endif
  352.  
  353.     if but11.pressed = 1
  354.     hypertext.titlecolor = rand
  355.     hypertext.bodysize = 10
  356.     hypertext.titlesize = 12
  357.     hypertext.next = 1
  358.     endif
  359.  
  360.     if but12.pressed = 1
  361.     hypertext.titlecolor = rand
  362.     hypertext.bodysize = 10
  363.     hypertext.titlesize = 12
  364.     hypertext.previous = 1
  365.     endif
  366.  
  367. //search types
  368.     if but13.pressed = 1
  369.     hypertext.titlecolor = rand
  370.     pic1.visible = 0
  371.     load_topic "index|"
  372.     endif
  373.     
  374.     if but14.pressed = 1
  375.     hypertext.titlecolor = rand
  376.     pic1.visible = 0
  377.     load_topic "category|"
  378.     endif
  379.  
  380.     if but15.pressed = 1
  381.     hypertext.titlecolor = rand
  382.     hypertext.bodysize = 9
  383.     hypertext.titlesize = 12
  384.     pic1.visible = 0
  385.     load_topic "ingredients|"
  386.     hypertext.bodysize = 10
  387.     hypertext.titlesize = 12
  388.     endif
  389.  
  390. //print and return
  391.     if but16.pressed = 1
  392.     hypertext.print = 1
  393.     endif
  394.  
  395.     if but17.pressed = 1
  396.         goto main
  397.     endif
  398.     
  399. //quantities
  400.     if but18.pressed = 1
  401.     hypertext.quantity = 1
  402.     hypertext.refresh = 0
  403.     endif
  404.  
  405.     if but19.pressed = 1
  406.     hypertext.quantity = 2
  407.     hypertext.refresh = 0
  408.     endif
  409.  
  410.     if but20.pressed = 1
  411.     hypertext.quantity = 3
  412.     hypertext.refresh = 0
  413.     endif
  414.  
  415.     if but21.pressed = 1
  416.     hypertext.quantity = 4
  417.     hypertext.refresh = 0
  418.     endif
  419.  
  420.     if but22.pressed = 1
  421.     hypertext.quantity = 5
  422.     hypertext.refresh = 0
  423.     endif
  424.  
  425.     if but23.pressed = 1
  426.     hypertext.quantity = 6
  427.     hypertext.refresh = 0
  428.     endif
  429.  
  430.     if but24.pressed = 1
  431.     hypertext.quantity = 7
  432.     hypertext.refresh = 0
  433.     endif
  434.  
  435.     if but25.pressed = 1
  436.     hypertext.quantity = 8
  437.     hypertext.refresh = 0
  438.     endif
  439.  
  440.     if but26.pressed = 1
  441.     hypertext.quantity = 9
  442.     hypertext.refresh = 0
  443.     endif
  444.     goto label1
  445.     
  446. measure:
  447.     call clear
  448.     screen.tile = 0
  449.     screen.backcolor = black
  450.  
  451.     play_midi "bar5.mid"
  452.  
  453.     set_palette "measure.bmp"
  454.     screen.name = "measure.bmp"
  455.  
  456.     but22.left = 540
  457.     but22.top = 400
  458.     but22.autosize = 2
  459.     but22.name = "mreturn.bmp"
  460.     but22.visible = 1
  461.     
  462. measure1:
  463.     if but22.pressed = 1
  464.     goto main
  465.     endif
  466.  
  467.     if midi.done = 1
  468.         play_midi "bar5.mid"
  469.     endif
  470.  
  471.     goto measure1
  472.  
  473. done:
  474.     end
  475. dopic:
  476.     pic1.visible = 0
  477.     pic1.left = 375
  478.     pic1.top = 30
  479.     pic1.autosize = 1
  480.     pic1.border = 1
  481. //      pic1.line = 20, black
  482.     set_palette "drink;param;.bmp"  
  483.     pic1.name = "drink;param;.bmp"
  484.     pic1.visible = 1
  485.     return
  486.  
  487. clear:
  488.     hypertext.visible = 0
  489.     pic1.visible = 0
  490.     but1.visible = 0
  491.     but2.visible = 0
  492.     but3.visible = 0
  493.     but4.visible = 0
  494.     but5.visible = 0
  495.     but6.visible = 0
  496.     but7.visible = 0
  497.     but8.visible = 0
  498.     but9.visible = 0
  499.     but10.visible = 0
  500.     but11.visible = 0
  501.     but12.visible = 0
  502.     but13.visible = 0
  503.     but14.visible = 0
  504.     but15.visible = 0
  505.     but16.visible = 0
  506.     but17.visible = 0
  507.     but18.visible = 0
  508.     but19.visible = 0
  509.     but20.visible = 0
  510.     but21.visible = 0
  511.     but22.visible = 0
  512.     but23.visible = 0
  513.     but24.visible = 0
  514.     but25.visible = 0
  515.     but26.visible = 0
  516.     return
  517.  
  518. getrand:
  519.     xr = param%6
  520.     rand = black
  521.     
  522.     if xr = 2
  523.     rand = white
  524.     endif
  525.     if xr = 3
  526.     rand = red
  527.     endif
  528.     if xr = 4
  529.     rand = green
  530.     endif
  531.     if xr = 5
  532.     rand = blue
  533.     endif
  534.     if xr = 0
  535.     rand = yellow
  536.     endif
  537.     return
  538.